home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2002 May
/
chip-cd_2002_05.zip
/
05
/
Dom i biuro
/
Mr Faktury Pro 1.53
/
mr_faktury_pro.exe
/
0
/
RCDATA
/
TFREMANENT_D
/
TFREMANENT_D.txt
Wrap
Text File
|
2002-03-27
|
5KB
|
225 lines
object fRemanent_d: TfRemanent_d
Left = 466
Top = 237
BorderStyle = bsSingle
Caption = 'fRemanent_d'
ClientHeight = 254
ClientWidth = 397
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
PixelsPerInch = 96
TextHeight = 13
object bWyjdz: TButton
Left = 312
Top = 216
Width = 75
Height = 25
Caption = '&Wyjd'#378
TabOrder = 0
OnClick = bWyjdzClick
end
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 393
Height = 201
DataSource = ds
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'data_dostawy'
Visible = True
end
item
Expanded = False
FieldName = 'symbol_faktury'
Width = 112
Visible = True
end
item
Expanded = False
FieldName = 'cena_netto'
Width = 71
Visible = True
end
item
Expanded = False
FieldName = 'ilosc_aktualna'
Width = 99
Visible = True
end>
end
object ds: TDataSource
DataSet = tDostawa
Left = 80
Top = 64
end
object tDostawa: TffTable
DatabaseName = 'mr_sklep'
FieldDefs = <
item
Name = 'numer'
DataType = ftAutoInc
end
item
Name = 'numer_dostawy'
Attributes = [faRequired]
DataType = ftInteger
end
item
Name = 'numer_kolejny'
Attributes = [faRequired]
DataType = ftSmallint
end
item
Name = 'numer_magazynu'
Attributes = [faRequired]
DataType = ftWord
end
item
Name = 'numer_towaru'
Attributes = [faRequired]
DataType = ftInteger
end
item
Name = 'ilosc_towaru'
Attributes = [faRequired]
DataType = ftFloat
end
item
Name = 'ilosc_aktualna'
Attributes = [faRequired]
DataType = ftFloat
end
item
Name = 'vat'
Attributes = [faRequired]
DataType = ftCurrency
end
item
Name = 'cena_netto'
Attributes = [faRequired]
DataType = ftFloat
end
item
Name = 'data_dostawy'
Attributes = [faRequired]
DataType = ftDate
end
item
Name = 'data_zero'
DataType = ftDate
end
item
Name = 'zero'
Attributes = [faRequired]
DataType = ftWord
end
item
Name = 'st_vat'
Attributes = [faRequired]
DataType = ftWord
end
item
Name = 'seria'
DataType = ftString
Size = 14
end
item
Name = 'data_waznosci'
DataType = ftDate
end
item
Name = 'numer_dostawy_p'
Attributes = [faRequired]
DataType = ftInteger
end>
SessionName = '[automatic]'
TableName = 'dostawa'
Timeout = 10000
OnCalcFields = tDostawaCalcFields
Left = 120
Top = 64
object tDostawanumer: TAutoIncField
FieldName = 'numer'
end
object tDostawanumer_dostawy: TIntegerField
FieldName = 'numer_dostawy'
Required = True
end
object tDostawanumer_kolejny: TSmallintField
FieldName = 'numer_kolejny'
Required = True
end
object tDostawanumer_magazynu: TWordField
FieldName = 'numer_magazynu'
Required = True
end
object tDostawanumer_towaru: TIntegerField
FieldName = 'numer_towaru'
Required = True
end
object tDostawailosc_towaru: TFloatField
FieldName = 'ilosc_towaru'
Required = True
end
object tDostawailosc_aktualna: TFloatField
FieldName = 'ilosc_aktualna'
Required = True
end
object tDostawavat: TCurrencyField
FieldName = 'vat'
Required = True
end
object tDostawacena_netto: TFloatField
FieldName = 'cena_netto'
Required = True
end
object tDostawadata_dostawy: TDateField
FieldName = 'data_dostawy'
Required = True
end
object tDostawadata_zero: TDateField
FieldName = 'data_zero'
end
object tDostawazero: TWordField
FieldName = 'zero'
Required = True
end
object tDostawast_vat: TWordField
FieldName = 'st_vat'
Required = True
end
object tDostawaseria: TStringField
FieldName = 'seria'
Size = 14
end
object tDostawadata_waznosci: TDateField
FieldName = 'data_waznosci'
end
object tDostawanumer_dostawy_p: TIntegerField
FieldName = 'numer_dostawy_p'
Required = True
end
object tDostawasymbol_faktury: TStringField
FieldKind = fkCalculated
FieldName = 'symbol_faktury'
Size = 15
Calculated = True
end
end
end